perm filename BKG.POX[UP,DOC] blob sn#458046 filedate 1979-07-16 generic text, type T, neo UTF8
\|\\;	How about using the BKG48 (backgammon) font.  POX this file!
\M0GACS25;\M1FIX20;\MBBKG48;\⊂'302455;\←=4;\λ\T=130;\B=2190;\;
\8eval(x)[⊗x⊗]\!eval((\∞)ff[\A'14;]);\;
\C\F0SOME HINTS ABOUT USING THE BACKGAMMON FONT (BKG48)

\JThis description is intended primarily for POX users, but people using
TEX or PUB can probably pick up some pointers, too.  First, get yourself
a copy of the BKG48 font so you can follow along in the rest of this
example.  To do this, say:\.

	R FCOPY;BKG48/SAMPLE

\JIgnore most of the resulting XGP output and look just at the table of
characters at the bottom of the page.  This shows the correspondence
between the SAIL character set and the glyphs of the font.  You'll find
that characters octal 1 through octal 10 (`↓' through `λ') and `9' and `:' are
the digits 1 through 0, for use who knows where.  (The examples below
ignore them.)  The characters `%', `&', apostrophe, and `(' are (probably)
intended for doing corners of the board, but are best ignored, too.  This
leaves the following useful characters:\.

	!, ", #, and $ are for drawing the edges of the board.
	;, ), <, and = are spaces of width 32, 24, 16, and 8 pixels, respectively.
	0 through 6 are the doubling cube (log base two).
	≥ and ≡ are the words Black and White, respectively.
	A through X are for downward points.
	a through x are for upward points.

\JWithin the two alphabetic ranges, A-F (a-f) are for empty light-colored points,
G-L (g-l) for black stones, M-R (m-r) for white, and S-X (s-x) for empty
dark-colored points.  Note that the stones always appear to have light-colored
points under them (where one can see around the edges of the stones); this
could be fixed using another 24 glyphs, if someone got up the energy.  The
stones near the tips (L and R glyphs) are also useful for stones on the bar.

The font is best used with no interline spacing.  (In POX, \"\←=0;\"\λ.)  The
font has height 48, and the stone/point glyphs all have width 48.  Now here is an
empty board to show you the overall design.  (The text used is shown on the left.)\.
\QL\←L\+=330;\→L\←=0;\λ\←;\Y∀\FB
)))))))))))))))))))))≥
#######################
!=S;A;S;A;S;A)";<!)S;A;S;A;S;A="
!=T;B;T;B;T;B)";<!)T;B;T;B;T;B="
!=U;C;U;C;U;C)";<!)U;C;U;C;U;C="
!=V;D;V;D;V;D)";<!)V;D;V;D;V;D="
!=W;E;W;E;W;E)";<!)W;E;W;E;W;E="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;";<!;;;;;;;;;;;;;;;"
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;w)";<!)e;w;e;w;e;w="
!=d;v;d;v;d;v)";<!)d;v;d;v;d;v="
!=c;u;c;u;c;u)";<!)c;u;c;u;c;u="
!=b;t;b;t;b;t)";<!)b;t;b;t;b;t="
!=a;s;a;s;a;s)";<!)a;s;a;s;a;s="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\+=204;\Y∀\←=3;\λ\←L\-=500;\→L\F1
)))))))))))))))))))))≥
#######################
!=S;A;S;A;S;A)";<!)S;A;S;A;S;A="
!=T;B;T;B;T;B)";<!)T;B;T;B;T;B="
!=U;C;U;C;U;C)";<!)U;C;U;C;U;C="
!=V;D;V;D;V;D)";<!)V;D;V;D;V;D="
!=W;E;W;E;W;E)";<!)W;E;W;E;W;E="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;";<!;;;;;;;;;;;;;;;"
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;w)";<!)e;w;e;w;e;w="
!=d;v;d;v;d;v)";<!)d;v;d;v;d;v="
!=c;u;c;u;c;u)";<!)c;u;c;u;c;u="
!=b;t;b;t;b;t)";<!)b;t;b;t;b;t="
!=a;s;a;s;a;s)";<!)a;s;a;s;a;s="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\!ff;\qL\F0\JHere's the initial tableau (note the addition of the doubling cube):\.
\QL\←L\+=265;\→L\←=0;\λ\←;\Y∀\FB
)))))))))))))))))))))≥
#######################
!=M;A;S;A;S;G)";<!)S;G;S;A;S;M="
!=N;B;T;B;T;H)";<!)T;H;T;B;T;N="
!=U;C;U;C;U;I)";<!)U;I;U;C;U;O="
!=V;D;V;D;V;J)";<!)V;D;V;D;V;P="
!=W;E;W;E;W;K)";<!)W;E;W;E;W;Q="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;";<!;;;;;;;;;;;;;;;";0
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;q)";<!)e;w;e;w;e;k="
!=d;v;d;v;d;p)";<!)d;v;d;v;d;j="
!=c;u;c;u;c;o)";<!)c;o;c;u;c;i="
!=h;t;b;t;b;n)";<!)b;n;b;t;b;h="
!=g;s;a;s;a;m)";<!)a;m;a;s;a;g="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\+=204;\Y∀\←=3;\λ\←L\-=465;\→L\F1
)))))))))))))))))))))≥
#######################
!=M;A;S;A;S;G)";<!)S;G;S;A;S;M="
!=N;B;T;B;T;H)";<!)T;H;T;B;T;N="
!=U;C;U;C;U;I)";<!)U;I;U;C;U;O="
!=V;D;V;D;V;J)";<!)V;D;V;D;V;P="
!=W;E;W;E;W;K)";<!)W;E;W;E;W;Q="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;";<!;;;;;;;;;;;;;;;";0
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;q)";<!)e;w;e;w;e;k="
!=d;v;d;v;d;p)";<!)d;v;d;v;d;j="
!=c;u;c;u;c;o)";<!)c;o;c;u;c;i="
!=h;t;b;t;b;n)";<!)b;n;b;t;b;h="
!=g;s;a;s;a;m)";<!)a;m;a;s;a;g="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\qL\y=204;\F0

\JAnd here's a typical tableau after Black rolls a 2-1 and White a 5-3, to
show a piece on the bar.  Additional pieces can be placed on the bar by replacing
more `";<!' sequences with `"L!' (or `"R!' for White pieces); if you get more
than 13 on the bar you're in trouble (but then again, anyone with more than 13
men on the bar is himself in trouble!).  If you need more than six on a single
point, you're on your own.\.
\QL\←L\+=265;\→L\←=0;\λ\←;\Y∀\FB
)))))))))))))))))))))≥
#######################
!=M;A;S;A;S;G)";<!)S;G;S;A;S;M="
!=N;B;T;B;T;H)";<!)T;H;T;B;T;N="
!=U;C;U;C;U;I)";<!)U;I;U;C;U;O="
!=V;D;V;D;V;J)";<!)V;D;V;D;V;P="
!=W;E;W;E;W;K)";<!)W;E;W;E;W;Q="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;"L!;;;;;;;;;;;;;;;";0
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;w)";<!)e;w;e;w;e;k="
!=d;v;d;v;d;p)";<!)d;v;d;v;d;j="
!=c;u;c;u;c;o)";<!)c;u;c;u;c;i="
!=b;t;n;t;b;n)";<!)b;n;b;t;b;h="
!=a;g;m;s;a;m)";<!)a;m;a;s;a;g="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\+=204;\Y∀\←=3;\λ\←L\-=465;\→L\F1
)))))))))))))))))))))≥
#######################
!=M;A;S;A;S;G)";<!)S;G;S;A;S;M="
!=N;B;T;B;T;H)";<!)T;H;T;B;T;N="
!=U;C;U;C;U;I)";<!)U;I;U;C;U;O="
!=V;D;V;D;V;J)";<!)V;D;V;D;V;P="
!=W;E;W;E;W;K)";<!)W;E;W;E;W;Q="
!=X;F;X;F;X;F)";<!)X;F;X;F;X;F="
!;;;;;;;;;;;;;;;"L!;;;;;;;;;;;;;;;";0
!=f;x;f;x;f;x)";<!)f;x;f;x;f;x="
!=e;w;e;w;e;w)";<!)e;w;e;w;e;k="
!=d;v;d;v;d;p)";<!)d;v;d;v;d;j="
!=c;u;c;u;c;o)";<!)c;u;c;u;c;i="
!=b;t;n;t;b;n)";<!)b;n;b;t;b;h="
!=a;g;m;s;a;m)";<!)a;m;a;s;a;g="
$$$$$$$$$$$$$$$$$$$$$$$
)))))))))))))))))))))≡
\qL\y=204;